home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / satdish.arc / EVALKU.BAS < prev    next >
BASIC Source File  |  1989-10-25  |  4KB  |  102 lines
  1. 10 CLS : PRINT : PRINT
  2. 20 PRINT "         TVRO EVALUATION"
  3. 30 PRINT "            Ku BAND"
  4. 40 INPUT "SITE LOCATION = ", ZA$
  5. 50 INPUT "E.S.LAT(DD.MMSS) = ", B: XB = B
  6. 60 NN = B: ZZ = 57.29577951#
  7. 70 GOSUB 490
  8. 80 GOSUB 520
  9. 90 B = SS
  10. 100 INPUT "E.S.LONG.(DD.MMSS) = ", C: XC = C
  11. 110 NN = C
  12. 120 GOSUB 490
  13. 130 GOSUB 520
  14. 140 C = SS
  15. 150 INPUT "SATELLITE LOCATION = ", A: XA = A
  16. 155 INPUT "SATELLITE NAME = ", NAM$
  17. 160 A = A / ZZ
  18. 170 GOSUB 550
  19. 180 INPUT "SIZE OF ANTENNA = ", ZB$
  20. 190 INPUT "ANTENNA TEMP.K = ", D
  21. 200 INPUT "LNA TEMP.K = ", E
  22. 210 INPUT "LNA GAIN = ", F
  23. 220 INPUT "SATELLITE EIRP = ", G
  24. 230 INPUT "GAIN OF ANTENNA = ", H
  25. 240 I = 10 ^ (F / 10) * .98
  26. 250 J = (1 / I) * 8880
  27. 260 K = (E / .98) + D + J
  28. 270 PRINT "SYSTEM TEMP = ", USING "   ####.#"; K
  29. 280 L = ((-LOG(K) / LOG(10)) * 10) + H
  30. 290 PRINT "G/T = ", USING " ###.#"; L
  31. 300 M = COS(B) * .295
  32. 310 N = -(COS(A - C) * M) + 1
  33. 320 O = 10 * (LOG(N) / LOG(10))
  34. 330 P = -(((LOG(12) / LOG(10)) * 20) + ((LOG(TT) / LOG(10)) * 20) + (96.58)) + O + (L + G)
  35. 340 PRINT "PATH LOSS = ", USING "####.#"; P - O - (L + G)
  36. 350 PRINT "C/T = ", USING " ####.#"; P
  37. 360 Q = G - (-(P - O - (L + G))) + H + 228.6 - 74.77 - ((LOG(K) / LOG(10)) * 10): Q = Q - .5
  38. 370 PRINT "C/ND = ", USING "###.#"; Q
  39. 380 T = (LOG(1 / ((1 / 10 ^ (Q / 10)) + (1 / 10 ^ 2.225))) / LOG(10)) * 10
  40. 390 PRINT "C/N = ", USING "###.#"; T
  41. 400 U = ((1 / (10 ^ ((Q - 3.6) / 10)))) + R
  42. 410 V = (LOG(1 / U) / LOG(10)) * 10
  43. 420 PRINT "WORST CASE = ", USING "###.#"; V
  44. 430 W = T + 37.36
  45. 440 PRINT "SIGNAL/NOISE = ", USING "###.#"; W
  46. 450 PRINT : PRINT
  47. 460 INPUT "DO YOU WISH TO PRINT HARD COPY (Y/N) ? "; XC$
  48. 470 IF XC$ = "Y" OR XC$ = "y" THEN 660
  49. 480 STOP: CLS : GOTO 10
  50. 490 OO = INT(NN): PP = NN - OO: PP = PP * 100: QQ = INT(PP): RR = PP - QQ
  51. 500 SS = OO + ((QQ * 60) + (RR * 100)) / 3600
  52. 510 RETURN
  53. 520 SS = SS / ZZ
  54. 530 RETURN
  55. 540 END
  56. 550 EE = 6.611: FF = 180 / ZZ
  57. 560 HH = (A - C): II = (COS(HH) * COS(B)): II = (-ATN(II / SQR(-II * II + 1)) + 1.5708)
  58. 570 JJ = (SIN(II) / (EE - COS(II))): JJ = ATN(JJ)
  59. 580 KK = (90 / ZZ) - JJ - II: KK = KK * ZZ
  60. 590 PRINT "ELEVATION = "; USING "###.##"; KK
  61. 600 LL = TAN(HH) / SIN(B): MM = ATN(LL) + FF
  62. 610 MM = MM * ZZ
  63. 620 PRINT "AZIMUTH = "; USING "####.##"; MM
  64. 630 TT = (EE * 3963) * (((COS(HH) * COS(B)) - .15126) / SIN(KK / ZZ))
  65. 640 PRINT "SLANT RANGE MILES = "; USING "######"; TT
  66. 650 RETURN
  67. 660 LPRINT : LPRINT : LPRINT
  68. 670 LPRINT "                    TVRO EVALUATION "
  69. 680 LPRINT "                       Ku BAND"
  70. 682 LPRINT
  71. 684 LPRINT " ** ENTERED PARAMETERS **"
  72. 690 LPRINT "            SITE LOCATION = "; ZA$
  73. 700 LPRINT " E. S. LATITUDE (DD.MMSS) = "; XB
  74. 710 LPRINT "E. S. LONGITUDE (DD.MMSS) = "; XC
  75. 720 LPRINT "       SATELLITE LOCATION = "; XA
  76. 722 LPRINT "           SATELLITE NAME = "; NAM$
  77. 724 LPRINT
  78. 726 LPRINT " ** CALCULATED PARAMETERS **"
  79. 730 LPRINT "           LOOK ELEVATION = "; USING "###.##"; KK
  80. 740 LPRINT "             LOOK AZIMUTH = "; USING "####.##"; MM
  81. 750 LPRINT "        SLANT RANGE MILES = "; USING "#####"; TT
  82. 752 LPRINT
  83. 754 LPRINT " ** ENTERED PARAMETERS **"
  84. 760 LPRINT "          SIZE OF ANTENNA = "; ZB$
  85. 770 LPRINT "         ANTENNA TEMP. K. = "; D
  86. 780 LPRINT "             LNA TEMP. K. = "; E
  87. 790 LPRINT "                 LNA GAIN = "; F
  88. 800 LPRINT "           SATELLITE EIRP = "; G
  89. 810 LPRINT "          GAIN OF ANTENNA = "; H
  90. 812 LPRINT
  91. 814 LPRINT " ** CALCULATED PARAMETERS **"
  92. 820 LPRINT "             SYSTEM TEMP. = "; USING "  ####.#"; K
  93. 830 LPRINT "                      G/T = "; USING " ###.#"; L
  94. 840 LPRINT "                PATH LOSS = "; USING " ####.#"; ABS(P - O - (L + G))
  95. 850 LPRINT "                      C/T = "; USING " ####.#"; P
  96. 860 LPRINT "                     C/ND = "; USING "###.#"; Q
  97. 870 LPRINT "                      C/N = "; USING "###.#"; T
  98. 880 LPRINT "               WORST CASE = "; USING "###.#"; V
  99. 890 LPRINT "             SIGNAL/NOISE = "; USING "###.#"; W
  100. 900 PRINT : PRINT : PRINT
  101. 910 GOTO 10
  102.